home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g16.bas < prev    next >
BASIC Source File  |  1991-10-18  |  701b  |  24 lines
  1. 100 ' G16 T.WAKAMATSU
  2. 110 CLS:S=5:C(1)=1:C(2)=5:C(3)=4:C(4)=6
  3. 120 R=130:PI=3.14159!:Q=1
  4. 130 FOR J=0 TO 30 STEP 2
  5. 140   P=J/180*PI:S=S+5:R=160-S:Q=Q+.2!:H=INT(Q)
  6. 150   V=COS(P)*R+320:W=SIN(P)*R+240:PSET(V,W)
  7. 160   FOR I=0 TO 360 STEP 3
  8. 170     T=I/180*PI:R=SIN(T*6-PI/2)*S+160
  9. 180     X=COS(T+P)*R+320:Y=SIN(T+P)*R+240
  10. 190     LINE -(X,Y),PSET,%C(H)
  11. 200   NEXT I
  12. 210 NEXT J
  13. 220 FOR D=1 TO 1000:NEXT D
  14. 230 R=130:S=5
  15. 240 FOR J=0 TO 30 STEP 2
  16. 250   P=J/180*PI:S=S+5:R=160-S
  17. 260   V=COS(P)*R+320:W=SIN(P)*R+240:PSET(V,W)
  18. 270   FOR I=0 TO 360 STEP 3
  19. 280     T=I/180*PI:R=SIN(T*6-PI/2)*S+160
  20. 290     X=COS(T+P)*R+320:Y=SIN(T+P)*R+240
  21. 300     LINE -(X,Y),PSET,0
  22. 310   NEXT I
  23. 320 NEXT J
  24.